Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fbifile/fbifile.frm

Text File | 1995-05-08 | 8KB | 266 lines

VERSION 2.00
Begin Form Fbifile
   BackColor       =   &H00FFFFFF&
   Caption         =   "FBI File"
   ClientHeight    =   3675
   ClientLeft      =   1080
   ClientTop       =   2235
   ClientWidth     =   7335
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Futura Md BT"
   FontSize        =   12
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4365
   Left            =   1020
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   3675
   ScaleWidth      =   7335
   Top             =   1605
   Width           =   7455
   Begin CommandButton BTN_View
      Caption         =   "View Profile"
      Height          =   495
      Left            =   2520
      TabIndex        =   0
      Top             =   3120
      Width           =   1935
   End
   Begin Menu MNU_File
      Caption         =   "&File"
      Begin Menu MNU_New
         Caption         =   "&New Profile"
      End
      Begin Menu MNU_Exit
         Caption         =   "E&xit"
      End
   End
   Begin Menu MNU_About
      Caption         =   "&About"
   End
End
Sub AliasData ()
    Cls
    Print : Print
    Print UCase$("aliases:")
    Print
    Print Tab(10); "Three-Finger "; nickname.nickname1.Text
    Print
    Print Tab(10); nickname.nickname2.Text; " the Knife"
End Sub

Sub BackGroundData ()
    Cls
    Randomize: Randnum& = (Rnd(0) * 45000) + (Rnd(0) * 21000)
    casenum$ = Str$(Randnum&)
    Print Tab(15); UCase$("fbi official dossier")
    Print Tab(12); UCase$("undesirable file") + " # " + casenum$
    Print
    Print UCase$("Subject:")
    Print Tab(10); background.username.Text
    Print
    Print UCase$("Last seen at:")
    Print Tab(10); background.street.Text
    Print Tab(10); background.city.Text
    Print Tab(10); background.state.Text
    BTN_View.Caption = "More..."
End Sub

Sub BTN_View_Click ()
    counter = counter + 1
    printprofile
End Sub

Sub CloseFileData ()
    Cls
    Print : Print : Print : Print
    Print Tab(10); "FBI File Closed"
    BTN_View.Caption = "Close File"
End Sub

Sub Form_Load ()
    windowstate = 0
    BTN_View.Visible = 0
End Sub

Sub GangData ()
    Cls
    Print : Print
    Print UCase$("gang members:")
    Print
    Print Tab(10); friends.Friend1.Text; " the Dip"
    Print Tab(10); "Killer "; friends.Friend2.Text
    Print Tab(10); "Brass Knuckles "; friends.Friend3.Text
    Print Tab(10); friends.Father.Text; " the Fence"
    Print Tab(10); "Gun Moll "; friends.Mother.Text
End Sub

Sub HangoutData ()
    Cls
    Print : Print
    Print UCase$("hangout:")
    Print
    Print Tab(10); employment.Work.Text
End Sub

Sub mafiadata ()
    Cls
    Print
    Print
    Print UCase$("mafia contacts:")
    Print
    Print Tab(10); "don "; employment.Bossname.Text
    Print
    Print Tab(10); "capo "; employment.Coworker.Text
End Sub

Sub MNU_About_Click ()
    'This plays the WAV:
    i% = sndplaysound("intro.wav", 1)
    'The flags work as follows:
    '0 - wait until sound finishes before returning
    '1 - return immediately - sound can be stopped with
    '    i% =sndplaysound(0&, 0)
    '2 - play no default if it can't find the WAV
    '4 - play sound over and over, must be combined with 1 by calling the flag
    '    i% =sndplaysound(snd_async or snd_loop, 0)
    '    it can also be stopped with (0%,0)
    '5 - returns false immediately if sound is already playing.
    about1$ = "            FBI Profile" + Chr$(13)
    about2$ = "    Written by Mike Davis" + Chr$(13)
    about3$ = "          FREEWARE" + Chr$(13)
    about4$ = "    Do with as you will" + Chr$(13)
    about5$ = "America Online: MikeD48" + Chr$(13) + Chr$(13)
    MsgBox about1$ + about2$ + about5$ + about3$ + about4$, 0, "FreeWare Notice"
End Sub

Sub MNU_Exit_Click ()
    End
End Sub

Sub MNU_New_Click ()
    Cls 'Clear the screen
    background.Show      'display the background form and
    background.SetFocus  'give it the focus
End Sub

Sub PersProfData ()
    Cls
    Print : Print : Print
    Print Tab(10); "Personal Profile on:": Print
    Print Tab(13); background.username.Text
End Sub

Sub printprofile ()
    Select Case counter
        Case 1
            BackGroundData
        Case 2
            AliasData
        Case 3
            HangoutData
        Case 4
            GangData
        Case 5
            mafiadata
        Case 6
            PersProfData
        Case 7
            Profile1Data
        Case 8
            Profile2Data
        Case 9
            Profile3Data
        Case 10
            Profile4Data
        Case 11
            Profile5Data
        Case 12
            Profile6Data
        Case 13
            CloseFileData
        Case 14
            BTN_View.Visible = 0
            Cls
    End Select
End Sub

Sub Profile1Data ()
    Cls
    Print : Print
    Print Tab(10); background.username.Text; " is considered to be ";
    Print Tab(10); "extremely dangerous."
    Print
    Print Tab(10); "Approach with Caution..."
    Print
    Print Tab(10); background.username.Text; " has been known to hide"
    Print Tab(10); "lethal weapons in ";
    Print preferences.food.Text; "."
End Sub

Sub Profile2Data ()
    Cls
    Print : Print
    Print Tab(10); background.username.Text; " had been the muscle "
    Print Tab(10); "behind "; employment.Coworker.Text; "'s bookie and "
    Print Tab(10); "loan sharking operation in "; background.city.Text
    Print Tab(10); "during the late 70's."
End Sub

Sub Profile3Data ()
    Cls
    Print
    Print Tab(10); "As a dilligent enforcement agent"
    Print Tab(10); "in organized crime,"
    Print Tab(10); background.username.Text; " was known to"
    Print Tab(10); "cut off a client's "; preferences.body.Text
    Print Tab(10); "for non-payment of a loan."
    Print
    Print Tab(10); background.username.Text; " was also suspected of"
    Print Tab(10); "force feeding "; preferences.fruit.Text; " to"
    Print Tab(10); "someone because he was wearing "; preferences.color.Text;
    Print " pants."
End Sub

Sub Profile4Data ()
    Cls
    Print
    Print Tab(10); "Currently, "; background.username.Text; " is a"
    Print Tab(10); "member of "; employment.Bossname.Text; "'s crime "
    Print Tab(10); "family in east "; background.state.Text; "."
    Print Tab(10); background.username.Text; " is suspected of "
    Print Tab(10); "attempted hits and mayhem on"
    Print Tab(10); preferences.actor.Text; " and "; preferences.singer.Text; "."
    Print Tab(10); background.username.Text; " is also a suspect in"
    Print Tab(10); "threatening the cast of "; preferences.tvshow.Text
    Print Tab(10); "with bodily harm."
End Sub

Sub Profile5Data ()
    Cls
    Print : Print
    Print Tab(10); background.username.Text; " managed to escape"
    Print Tab(10); "prosecution all these years"
    Print Tab(10); "because of the brilliant law firm of"
    Print Tab(10); misc.pres1.Text; ", "; misc.pres2.Text; " and "; misc.pres3.Text; ","
    Print Tab(10); "retained by don "; employment.Bossname.Text; "'s"
    Print Tab(10); "national crime family."
End Sub

Sub Profile6Data ()
    Cls
    Print : Print
    Print UCase$("indictments:")
    Print
    Print Tab(10); "1 count of "; misc.hobby2.Text; " without a permit"
    Print Tab(10); "2 counts of felonious "; misc.hobby1.Text
    Print Tab(10); "3 counts of 3rd degree "; misc.hobby3.Text
    Print
    Print UCase$("convictions:")
    Print
    Print Tab(10); UCase$("none")
End Sub